Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar/1998/Sep/di9809jp/BlastServer/Main.dfm/Main.txt

Text File | 1998-03-06 | 6KB | 218 lines

object frmMain: TfrmMain
  Left = 243
  Top = 260
  Width = 411
  Height = 334
  ActiveControl = memMsg
  Caption = 'BlastCast Server 1.0'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 403
    Height = 307
    ActivePage = tsSend
    Align = alClient
    MultiLine = True
    TabOrder = 0
    object tsSetUp: TTabSheet
      Caption = 'Setup'
      object gbTTL: TGroupBox
        Left = 8
        Top = 8
        Width = 105
        Height = 50
        Caption = 'TTL'
        TabOrder = 0
        object edTTL: TEdit
          Left = 33
          Top = 15
          Width = 25
          Height = 21
          TabOrder = 0
          Text = '2'
        end
        object udTTL: TUpDown
          Left = 58
          Top = 15
          Width = 15
          Height = 21
          Associate = edTTL
          Min = 1
          Max = 255
          Position = 2
          TabOrder = 1
          Wrap = False
        end
      end
      object gbMCAddress: TGroupBox
        Left = 8
        Top = 64
        Width = 105
        Height = 50
        Caption = 'Multicast address'
        TabOrder = 1
        object edMCAddr: TEdit
          Left = 8
          Top = 16
          Width = 89
          Height = 21
          TabOrder = 0
          Text = '234.5.6.7'
        end
      end
      object gbPort: TGroupBox
        Left = 8
        Top = 120
        Width = 105
        Height = 50
        Caption = 'Port'
        TabOrder = 2
        object edPort: TEdit
          Left = 16
          Top = 14
          Width = 57
          Height = 21
          TabOrder = 0
          Text = '0'
        end
        object udPort: TUpDown
          Left = 73
          Top = 14
          Width = 15
          Height = 21
          Associate = edPort
          Min = 0
          Max = 30000
          Position = 0
          TabOrder = 1
          Wrap = False
        end
      end
    end
    object tsSend: TTabSheet
      Caption = 'Send'
      object gbMemo: TGroupBox
        Left = 8
        Top = 0
        Width = 377
        Height = 150
        Caption = 'Announcement'
        TabOrder = 0
        object memMsg: TMemo
          Left = 2
          Top = 15
          Width = 373
          Height = 133
          Align = alClient
          Lines.Strings = (
            'memMsg')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object gbSendActions: TGroupBox
        Left = 8
        Top = 233
        Width = 377
        Height = 46
        Caption = 'Actions'
        TabOrder = 1
        object bbtnClose: TBitBtn
          Left = 292
          Top = 15
          Width = 75
          Height = 25
          TabOrder = 0
          OnClick = bbtnCloseClick
          Kind = bkClose
        end
        object bbtnMail: TBitBtn
          Left = 105
          Top = 16
          Width = 75
          Height = 25
          Caption = 'Mail'
          TabOrder = 1
          OnClick = bbtnMailClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
            000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
            FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
            FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
            9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
            0000777777777777777733333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
        end
        object bbtnClear: TBitBtn
          Left = 12
          Top = 16
          Width = 76
          Height = 25
          Caption = 'C&lear'
          TabOrder = 2
          OnClick = bbtnClearClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
            305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
            005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
            B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
            B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
            B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
            B0557777FF577777F7F500000E055550805577777F7555575755500000555555
            05555777775555557F5555000555555505555577755555557555}
          NumGlyphs = 2
        end
        object bbtnAbout: TBitBtn
          Left = 200
          Top = 16
          Width = 75
          Height = 25
          Caption = '&About'
          TabOrder = 3
          OnClick = bbtnAboutClick
          Kind = bkHelp
        end
      end
      object gbStatusMsg: TGroupBox
        Left = 8
        Top = 152
        Width = 377
        Height = 81
        Caption = 'Status Messages'
        TabOrder = 2
        object memStatusMsg: TMemo
          Left = 2
          Top = 15
          Width = 373
          Height = 64
          Align = alClient
          Lines.Strings = (
            'memStatusMsg')
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
  end
end